sub main()	dim s as string, m as string	dim i as integer
	msgbox("Test here")	while (i < 5)
		i = i + 1
		m = "jose"		msgbox("m=2 " & m & i)	wend
	msgbox("Test done")end sub